SERVICIOS

SERVICIOS

VISOR DE SERVICIOS

INFORMACIÓN DE LOS SERVICIOS

UNMSM

CIUDAD UNIVERSITARIA

La reconocida Ciudad Universitaria fue creada en la década de los años sesenta convirtiéndose en uno de los campus universitarios más reconocidos del país donde convergen la identidad y la historia. Sus edificaciones dan cuenta de la diversidad académica que ofrece la Decana de América y donde conviven estudiantes, docenes y personal administrativo de las facultades correspondientes a las cinco áreas del conocimiento académicas que la constituyen. En este espacio se han formado muchas de las figuras más notables del arte, ciencia y política del Perú, y de sus aulas han egresado destacados estudiosos que resaltan a nivel nacional e internacional.

BUS PERIMETRAL

DESCRIPCIÓN

Burro

---
title: "Ubicate Cachimbo"
output: 
  flexdashboard::flex_dashboard:
    theme: journal
    orientation: columns
    social: menu
    source_code: embed
    vertical_layout: scroll
    width: 400
   
---

```{r setup, include=FALSE}
library(flexdashboard)
library(leaflet)
library(foreign)
library(fontawesome)
```
# SERVICIOS

## SERVICIOS  {data-width=500}

### VISOR DE SERVICIOS
```{r}
  
  
  # Ruta al archivo DBF
  ruta_dbf <- "C:/Users/diego/Documents/DashBoardUNMSM/tabla/servicio_table3.dbf"
  
  # Leer el archivo DBF y convertirlo a un dataframe
  dataframe_servicios <- read.dbf(ruta_dbf)
  
  # first 20 quakes
  df.20 <- dataframe_servicios[1:57,]
  
  getColor <- function(dataframe_servicios) {
    sapply(dataframe_servicios$TIPO_DE_SE, function(TIPO_DE_SE) {
      # Personaliza los colores según los nombres de servicios
      if (TIPO_DE_SE == "LIBRERÍA/IMPRENTA") {
        "green"
      } else if (TIPO_DE_SE == "KIOSKO/BODEGA") {
        "yellowgreen"
      } else if (TIPO_DE_SE == "CAFETERIA") {
        "orange"
      } else if (TIPO_DE_SE == "BIBLIOTECA") {
        "blue"
      } else {
        "red"
      }
    })
  }
  
  icons <- awesomeIcons(
    icon = 'ios-close',
    iconColor = 'black',
    library = 'ion',
    markerColor = getColor(df.20)
  )
  
  
  # Leer el archivo GeoJSON
  facultades <- geojsonio::geojson_read("C:/Users/diego/Documents/DashBoardUNMSM/Json/Facultad_UNMSM.geojson", what = "sp")
  servicios <- geojsonio::geojson_read("C:/Users/diego/Documents/DashBoardUNMSM/Json/SERV_UNMSM.geojson", what = "sp")
  
  # Crear el mapa
  m <- leaflet() %>%
    setView(lng = -77.082, lat = -12.056, zoom = 16)  %>%
    addProviderTiles("MapBox", options = providerTileOptions(
      ID = "mapbox.light",
      accessToken = Sys.getenv('MAPBOX_ACCESS_TOKEN')
    ))
  
  
  
  
  
  # Crear etiquetas
  labels <- sprintf(
    "<strong>%s</strong>",
    facultades$NOMFAC
  ) %>% lapply(htmltools::HTML)
  
  # Añadir polígonos al mapa
  m <- m %>% 
    addPolygons(data=facultades,
      weight = 2,
      opacity = 1,
      color = "gray",
      dashArray = "0.5",
      fillOpacity = 0.7,
      highlightOptions = highlightOptions(
        weight = 2,
        color = "#000",
        dashArray = "",
        fillOpacity = 0.9,
        bringToFront = TRUE),
      label = labels,
      labelOptions = labelOptions(
        style = list("font-weight" = "normal", padding = "3px 8px"),
        textsize = "15px",
        direction = "auto"),
      group = "Facultades"  # Agregar grupo para el control de capas
    ) %>%
    addProviderTiles(providers$CartoDB.Positron, group = "CartoDB") %>%
    addMiniMap()
  
  
  labels_serv <- sprintf(
    "<strong>%s</strong><br/>Horario: %s - %s",
    df.20$TIPO_DE_SE, df.20$HOR_INI, df.20$HOR_FIN
  ) %>% lapply(htmltools::HTML)
  
  m <- m %>%
    addAwesomeMarkers(data = df.20, ~ESTE, ~NORTE, icon=icons, label=labels_serv) %>%
    setView(lng = -77.082, lat = -12.056, zoom = 16)  %>%
    addProviderTiles(providers$CartoDB.Positron, group = "CartoDB") %>%
    addMiniMap()
  
  
  # Definir colores y etiquetas para la leyenda
  legend_colors <- c("gray", "orange")  # Añadir más colores si es necesario
  legend_labels <- c("Facultades", "CartoDB")  # Actualizar etiquetas según sea necesario
  
  # Añadir control de capas y leyenda
  m <- m %>%
    addLayersControl(
      overlayGroups = c("Facultades", "WorldStreetMap"),  # Grupos de capas
      options = layersControlOptions(collapsed = TRUE)
    ) %>%
    addLegend(
      position = "bottomright",
      colors = legend_colors,
      labels = legend_labels,
      title = "Leyenda"
    )
  
  # Mostrar el mapa
  m


```
### INFORMACIÓN DE LOS SERVICIOS
```{r}

```
## UNMSM  {data-width=200}
### CIUDAD UNIVERSITARIA
La reconocida Ciudad Universitaria fue creada en la década de los años sesenta convirtiéndose en uno de los campus universitarios más reconocidos del país donde convergen la identidad y la historia. Sus edificaciones dan cuenta de la diversidad académica que ofrece la Decana de América y donde conviven estudiantes, docenes y personal administrativo de las facultades correspondientes a las cinco áreas del conocimiento académicas que la constituyen. En este espacio se han formado muchas de las figuras más notables del arte, ciencia y política del Perú, y de sus aulas han egresado destacados estudiosos que resaltan a nivel nacional e internacional.
```{r}

```
# BUS PERIMETRAL

### DESCRIPCIÓN

```{r}
 # Cargar datos del GeoJSON (polígonos)
  paraderos <- geojsonio::geojson_read("C:/Users/diego/Documents/MapaUNMSM/facultades/geojson/paraderos.geojson", what = "sp")
  
  # Cargar datos del GeoJSON (líneas)
  ruta_burro <- geojsonio::geojson_read("C:/Users/diego/Documents/MapaUNMSM/facultades/geojson/ruta_burro.geojson", what = "sp")
  
    
  facultades <- geojsonio::geojson_read("C:/Users/diego/Documents/DashBoardUNMSM/Json/Facultad_UNMSM.geojson", what = "sp")
    
    # Crear el mapa
    q <- leaflet(facultades) %>%  # Añadir capa de teselas base
    setView(lng = -77.082, lat = -12.056, zoom = 16) %>% addProviderTiles(providers$CartoDB.Positron, group = "CartoDB") %>%
      addMiniMap()  # Establecer vista inicial
  
  # Añadir polígonos con etiquetas emergentes
  q <- q %>% addPolygons(
    data = paraderos,
    fillColor = "red",  # Color de relleno
    color = "red",     # Color del borde
    fillOpacity = 0.5,    # Opacidad del relleno
    weight = 6,            # Grosor del borde
    group = "Paraderos",  # Grupo para el control de capas
    popup = ~paste("Paradero: ", paraderos$Nombre)  # Información emergente al hacer clic
  )
  labels_ruta <- sprintf(
    "<strong>Distancia:</strong> %s m",
    ruta_burro$Longitud
  ) %>% lapply(htmltools::HTML)
  
  # Añadir líneas con etiquetas emergentes
  q <- q %>% addPolylines(
    data = ruta_burro,
    color = "darksalmon",     # Color del borde
    fillOpacity = 0.2,# Color de las líneas
    weight = 8,            # Grosor de las líneas
    group = "Ruta Bus",  # Grupo para el control de capas
    popup = ~paste( ruta_burro$Longitud, "metros"),
    label = labels_ruta,
    labelOptions = labelOptions(
      style = list("font-weight" = "normal", padding = "3px 8px"),
      textsize = "15px",
      direction = "auto")
  )
  
  labels <- sprintf(
    "<strong>%s</strong>",
    facultades$NOMFAC
  ) %>% lapply(htmltools::HTML)
  
  q <- q %>% addPolygons(weight = 2,
                    opacity = 1,
                    color = "gray",
                    group = "Facultades",
                    dashArray = "0.5",
                    fillOpacity = 0.7,
                    label = labels,
                    labelOptions = labelOptions(
                      style = list("font-weight" = "normal", padding = "3px 8px"),
                      textsize = "15px",
                      direction = "auto"))
  
  
  
  
  
  q <- q %>% addEasyButton(easyButton(
    icon="ion-location",
    title="Encuentra mi ubicación",
    onClick = JS("function(btn, map){ map.locate({setView: true, maxZoom: 16}); }")
  ))
  # Mostrar el mapa
  # Definir colores y etiquetas para la leyenda
  legend_colors_burro <- c("black", "gray", "darksalmon","red" )  # Añadir más colores si es necesario
  legend_labels_burro <- c("Facultades", "Mapa Base","Bus Perimetral","Paraderos" )  # Actualizar etiquetas según sea necesario
  
  # Añadir control de capas y leyenda
  q <- q %>%
    addLegend(
      position = "bottomright",
      colors = legend_colors_burro,
      labels = legend_labels_burro,
      title = "Leyenda"
    )%>%
    addLayersControl(
      overlayGroups = c("Paraderos","Ruta Bus", "Facultades","CartoDB"),  # Grupos de capas
      options = layersControlOptions(collapsed = TRUE)
    )
  
  
  q
```

### Burro